library(tidyplots)

# 1. add
# add_*()函数用于向图表中添加不同的图形元素，逐步构建完整的图表。
# 通过使用 add_*() 函数，您可以为图表添加数据点、统计条、均值线、误差条等。
p <- dinosaurs |>
  tidyplot(x = time_lived) |>
  add_count_bar(alpha = 0.4) |>
  add_count_dash() |>
  add_count_dot() |>
  add_count_value() |>
  add_count_line()

# 2. adjust
p <- p |>
  adjust_x_axis(rotate_labels = TRUE) |>
  adjust_colors(c("black", "white"))

# 3. remove
p <- p |>
  remove_x_axis_ticks() |>
  remove_x_axis_title()

# 在 tidyplots 中，除了调整图表的外观（如标题、颜色等），
# 我们还可以通过一组专用的函数来修改图表中数据标签的名称、顺序、排序和反转。
# 与其他调整函数不同，这些函数的名称以 rename_、reorder_、sort_ 和 reverse_ 开头。
# 此外，我们可以使用theme_tidyplot(), theme_ggplot2(), theme_minimal_xy(),
#   theme_minimal_x() theme_minimal_y()等函数调用不同主题。

# 4. tidyplots + ggplot2
dinosaurs %>% 
tidyplot(x=time_lived)%>% 
  #依次添加条形图、线、点、值和连线
  add_count_bar(alpha=0.4)%>% 
  add_count_dash() %>% 
  add_count_dot() %>% 
  add_count_value() %>% 
  add_count_line() %>% 
  #旋转x轴的标签
  adjust_x_axis(rotate_labels = TRUE) %>% 
  #将图形颜色设置为黑白
  adjust_colors(c("black", "white"))%>% 
  
  # 应用ggplot2主题
  theme_ggplot2() %>% 
  #tidyplots与ggplot2的兼容性，嵌入ggplot2包单独修改x轴标签
  add(ggplot2::theme(axis.text.x = ggplot2::element_text(
    size = 4, color = "red", angle = 45, hjust = 1, vjust = 1)))%>%
  #移除x轴的刻度线
  remove_x_axis_ticks()%>%
  #移除x轴的标题
  remove_x_axis_title()